home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / gsdb21.arc / DB_XPL05.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-04  |  480b  |  26 lines
  1. program DB_Xpl05;
  2. uses
  3.    CRT,
  4.    DOS,
  5.    GS_KeyI,
  6.    GS_dBFld,
  7.    GS_dBase;
  8. var
  9.    Health  : GS_dBFld_Objt;
  10.  
  11. begin
  12.    ClrScr;
  13.    Health.Init('HEALTH');
  14.    Health.Open;
  15.    Health.Index('FOODNAME');
  16.    Health.GetRec(Top_Record);
  17.    while (Health.FieldDisplayScreen) and (not Health.File_EOF) do
  18.    begin
  19.       if GS_KeyI_Chr = Kbd_PgUp then
  20.          Health.GetRec(Prev_Record)
  21.       else
  22.          Health.GetRec(Next_Record);
  23.    end;
  24.    Health.Close;
  25. end.
  26.